home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earkit / realaudio / rastream.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-13  |  441b  |  25 lines
  1. /* stream RA data  */
  2.  
  3. PARSE ARG URL
  4.  
  5. validURL = 1
  6.  
  7. if upper(left(URL,7)) ~= 'HTTP://' then do
  8.    validURL = 0
  9.    if upper(left(URL,6)) == 'PNM://' then do
  10.       URL = 'HTTP://'||substr(URL,8)
  11.       validURL = 1
  12.    end
  13. end
  14.  
  15. if ~validURL then do
  16.    say 'This isn''t a valid URL.'
  17.    exit
  18. end
  19.  
  20. /* This is WAY dirty!!! */
  21. address command 'Run <>NIL: httpget -o PIPE: '||URL
  22. address command 'RA PIPE: >AUDIO:B/16/T/SIGNED/F/8000/BUFFER/32768'
  23.  
  24.  
  25.